<%

Dim oConn,strSQL     
Set oConn = Server.CreateObject("ADODB.Connection") 
   ' oConn.open "Provider=Microsoft.Jet.Oledb.4.0;Data source=" & server.MapPath("datos.mdb") 	
oConn.Mode = 3      '3 = adModeReadWrite

'oConn.open "PROVIDER=SQLOLEDB;DATA SOURCE=wdb1003.chi.us.securedata.net;UID=dbcalidda;PWD=c4lidd4;DATABASE=dbcalidda"
oConn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\AppServ\www\CaliddaServer\db\reportepdf.mdb;"

%>
